home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-04_1990_-_de_Side_A.d64 / [u] laden (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  617b  |  34 lines
  1. 1 rem  unterprogramm zum laden von
  2. 2 rem  daten an eine beliebige
  3. 3 rem  speicheradresse.
  4. 4 rem  ad = speicheradresse
  5. 5 rem  n$ = filename
  6. 6 :
  7. 7 ad=36864
  8. 8 n$="filename"
  9. 9 :
  10. 10 rem  berechnung des lo-und hi wertes
  11. 11 rem  von ad.
  12. 12 :
  13. 13 y=int(ad/256):x=ad-(y*256)
  14. 14 :
  15. 15 rem  filename an kernalroutine. kein
  16. 16 rem  komma zwischen sys und name!
  17. 17 :
  18. 18 sys57812 n$,8
  19. 19 :
  20. 20 rem  lo-und hi werte an routine.
  21. 21 :
  22. 22 poke780,0:poke781,x:poke782,y
  23. 23 :
  24. 24 rem  laderoutine starten.
  25. 25 :
  26. 26 sys65493
  27. 27 :
  28. 28 :
  29. 29 :
  30. 30 rem  die daten stehen nun ab adresse
  31. 31 rem  ad im speicher.
  32. 32 :
  33. 33 rem  nicht starten. demo!!!
  34.